home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
GRAFISCH
/
FRACXTR5
/
FRACTFLY.ZIP
/
FRACTFLY.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1990-09-01
|
2KB
|
85 lines
{Program Fractal Fly-through by Josh Lannin. Version 1.0. 12/14/90.
Feeling Anti-Kleptomanic? You can send me donations at
634 W. Fairmount, State College, PA 16801.
My phone number is (814) 237-1843.
This software is FREEWARE, no strings attached. Eliminate shareware
"Register to get all the features" software!
Hail Discordia! I see the fnords!}
PROGRAM Fractint_Flythrough (Input, Output);
USES Crt, Printer;
VAR x1, x2, y1, y2, x1a, x2a, y1a, y2a, decx1, decx2, decy1, decy2, step : REAL;
x1temp, x2temp, y1temp, y2temp : REAL;
i : REAL;
outdata : TEXT;
PROCEDURE Input_Coordinates;
BEGIN;
ASSIGN (outdata, 'frabatch.bat');
REWRITE (outdata);
CLRSCR;
WRITELN ('Enter the starting coordinates');
WRITE ('X1= ');
READLN (x1);
WRITE ('X2= ');
READLN (x2);
WRITE ('Y1= ');
READLN (y1);
WRITE ('Y2= ');
READLN (y2);
CLRSCR;
WRITELN ('Enter the target coordinates');
WRITE ('X1= ');
READLN (x1a);
WRITE ('X2= ');
READLN (x2a);
WRITE ('Y1= ');
READLN (y1a);
WRITE ('Y2= ');
READLN (y2a);
CLRSCR;
WRITE ('Enter the number of steps ');
READLN (step);
END;
PROCEDURE writeout;
BEGIN
i := step;
decx1 := ( (x1 - x1a) / step);
decx2 := ( (x2 - x2a) / step);
decy1 := ( (y1 - y2a) / step);
decy2 := ( (y2 - y2a) / step);
REPEAT
WRITE (outdata, 'Fractint batch=yes type=mandel corners=');
x1 := x1 - decx1;
x2 := x2 - decx2;
y1 := y1 - decy1;
y2 := y2 - decy2;
WRITE (outdata, x1 : 10 : 10);
WRITE (outdata, '/');
WRITE (outdata, x2 : 10 : 10);
WRITE (outdata, '/');
WRITE (outdata, y1 : 10 : 10);
WRITE (outdata, '/');
WRITE (outdata, y2 : 10 : 10);
WRITELN (outdata);
i := i - 1;
UNTIL (i <= 1);
CLOSE (outdata);
END;
BEGIN
Input_Coordinates;
Writeout;
END.